(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     24923,        861]
NotebookOptionsPosition[     19611,        675]
NotebookOutlinePosition[     20432,        705]
CellTagsIndexPosition[     20312,        699]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000067519324217`*^9},
 CellLabel->"Paclet Name",
 CellID->183255689],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->657474109],

Cell["TransferMatrixFormalism/ref/AbelesSIIv", "Categorization",
 CellChangeTimes->{3.600006752712423*^9},
 CellLabel->"URI",
 CellID->39402141]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["S", "Keywords",
 CellChangeTimes->{{3.598226169419181*^9, 3.5982261941150246`*^9}, {
  3.598721014041499*^9, 3.5987210209367113`*^9}},
 CellID->1164421360],

Cell["SI", "Keywords",
 CellChangeTimes->{{3.5987210153051014`*^9, 3.5987210336819334`*^9}},
 CellID->403793482],

Cell["SII", "Keywords",
 CellChangeTimes->{{3.5987210153051014`*^9, 3.598721035039136*^9}},
 CellID->694450138],

Cell["partial system", "Keywords",
 CellChangeTimes->{{3.598226169419181*^9, 3.5982261941150246`*^9}, 
   3.598721014041499*^9},
 CellID->379089414],

Cell["transfer matrix", "Keywords",
 CellChangeTimes->{{3.598226169419181*^9, 3.5982261761271925`*^9}, {
  3.5982262352054963`*^9, 3.5982262352054963`*^9}},
 CellID->82614899],

Cell["Eq. 22", "Keywords",
 CellChangeTimes->{{3.598226169419181*^9, 3.5982261761271925`*^9}, {
  3.5982262352054963`*^9, 3.5982262369370995`*^9}},
 CellID->221009319]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["AbelesSIIv", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["AbelesSIIv",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"], "[", 
   RowBox[{"\"\<\!\(\*
StyleBox[\"pol\", \"TI\"]\)\>\"", ",", 
    StyleBox["\[Omega]", "TR"], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["v", "TI"]], ",", 
        SubscriptBox[
         StyleBox["n", "TI"], 
         StyleBox["v", "TI"]]}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["\[Theta]", "TR"], 
           StyleBox["v", "TI"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["v", "TI"]], ",", 
          SubscriptBox[
           StyleBox["d", "TI"], 
           StyleBox["v", "TI"]]}], "}"}], ".."}], 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["k", "TI"]], ",", 
         SubscriptBox[
          StyleBox["d", "TI"], 
          StyleBox["k", "TI"]]}], "}"}]}]}], "}"}], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     RowBox[{"k", "+", "1"}]], ",", 
    StyleBox["v", "TI"]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the partial system transfer matrix for subsystem \
II at layer ",
 Cell[BoxData[
  StyleBox["v", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " for frequency ",
 Cell[BoxData[
  StyleBox["\[Omega]", "TR"]], "InlineFormula",
  ShowStringCharacters->False],
 " with specified material refaction angles ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 ", refractive indices ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",
  ShowStringCharacters->False],
 ", and thin film layer thicknesses ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["d", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " for ",
 Cell[BoxData[
  RowBox[{
   StyleBox["i", "TI"], "\[GreaterEqual]", "v"}]], "InlineFormula",
  ShowStringCharacters->False],
 ".  ",
 ButtonBox["Eq. 22.",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/AbelesSIIv#\
148884605"]
}], "Usage",
 CellChangeTimes->{{3.5981969317659845`*^9, 3.598196967302847*^9}, {
  3.598197330074685*^9, 3.5981974921775703`*^9}, {3.598197601568962*^9, 
  3.598197790411294*^9}, {3.5981978560728097`*^9, 3.5981978561508093`*^9}, {
  3.598198324406232*^9, 3.598198327276637*^9}, {3.5981988984550414`*^9, 
  3.598198905334654*^9}}],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["pol", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 "-polarization may be ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["s", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " or ",
 Cell[BoxData[
  RowBox[{"\"\<\>", 
   StyleBox["p", "TI"], "\"\<\>"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for propagating light fields with electric field oscillating perpendicular \
to the plane of incidence (transverse electric, TE) or magnetic field \
oscillating perpendicular to the plane of incidence (transverse magnetic, \
TM), respectively."
}], "Notes",
 CellChangeTimes->{3.5981978433431873`*^9},
 CellID->1067943069],

Cell[TextData[{
 ButtonBox["AbelesSIIv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIIv"],
 " is used extensively in the multilayer thin film model.  "
}], "Notes",
 CellChangeTimes->{{3.598197860768418*^9, 3.5981979293627386`*^9}, {
  3.598198162490547*^9, 3.598198162490547*^9}},
 CellID->5528961],

Cell["Satisfies the relation", "Notes",
 CellChangeTimes->{{3.598197860768418*^9, 3.5981979293627386`*^9}, 
   3.598198162490547*^9, {3.598226037375549*^9, 3.598226039777953*^9}},
 CellID->69309137],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{"S", "=", 
   RowBox[{
    SubscriptBox["SI", "v"], ".", 
    SubscriptBox["\[CapitalPhi]", "v"], ".", 
    SubscriptBox["SII", "v"]}]}], TraditionalForm]], "InlineMath"]], "Notes",
 Deletable->True,
 CellChangeTimes->{{3.598197860768418*^9, 3.598197996287856*^9}},
 TextAlignment->Center,
 CellID->189641294],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["S", TraditionalForm]], "InlineMath"],
 " is the total system transfer matrix ",
 ButtonBox["AbelesS, ",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"],
 Cell[BoxData[
  FormBox[
   SubscriptBox["SI", "v"], TraditionalForm]], "InlineMath"],
 " is the partial system transfer matrix for subsystem I ",
 ButtonBox["AbelesSIv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"],
 ", and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[CapitalPhi]", "v"], TraditionalForm]], "InlineMath"],
 " is the phase matrix at layer v ",
 ButtonBox["PhaseMv",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]
}], "Notes",
 Deletable->True,
 CellChangeTimes->{{3.5981980197346973`*^9, 3.598198148559723*^9}},
 CellID->568721677]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell[TextData[ButtonBox["Nonlinear Spectroscopy of Thin Film Systems",
 BaseStyle->"Link",
 ButtonData->
  "paclet:ThinFilmNLS/tutorial/Nonlinear Spectroscopy of Thin Film \
Systems"]], "Tutorials",
 CellChangeTimes->{{3.597778379480859*^9, 3.5977783986376925`*^9}, {
  3.6000111315791473`*^9, 3.6000111315981483`*^9}},
 CellID->40297743]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{{3.597765920073867*^9, 3.5977659201674676`*^9}},
 CellID->148884605]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["AbelesSIv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesSIv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["TransmitBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/TransmitBottomS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectTopS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectTopS"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ReflectBottomS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/ReflectBottomS"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598022991122965*^9, 3.5980230673914986`*^9}, {
  3.5981982211944504`*^9, 3.598198247168496*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell[TextData[{
 "Prove the relation ",
 Cell[BoxData[
  FormBox[
   RowBox[{"S", "=", 
    RowBox[{
     SubscriptBox["SI", "v"], ".", 
     SubscriptBox["\[CapitalPhi]", "v"], ".", 
     SubscriptBox["SII", "v"]}]}], TraditionalForm]], "InlineMath"],
 " for a 2 layer system by splitting the system at both layers:"
}], "ExampleText",
 CellChangeTimes->{{3.598198341894863*^9, 3.598198365779505*^9}, {
  3.598198615230943*^9, 3.5981986162605453`*^9}, {3.598225957000207*^9, 
  3.5982259675000257`*^9}},
 CellID->86593958],

Cell[BoxData[
 RowBox[{"<<", "TransferMatrixFormalism`"}]], "Input",
 CellChangeTimes->{{3.598721163052961*^9, 3.5987211712741756`*^9}, 
   3.600006754542425*^9},
 CellID->248772615],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Omega]", ",", "\[CapitalTheta]s", ",", "\[Theta]in", ",", "Ns", ",", 
       "n", ",", "Ds", ",", "d", ",", "args", ",", "SIv\[CapitalPhi]vSIIv", 
       ",", "S"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Ns", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"n", ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"\[CapitalTheta]s", "=", 
       RowBox[{"RefractionAngle", "[", 
        RowBox[{"\[Theta]in", ",", 
         RowBox[{"n", "[", "1", "]"}], ",", "Ns"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Ds", "=", 
       RowBox[{"Array", "[", 
        RowBox[{"d", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"args", "=", 
       RowBox[{"Sequence", "@@", 
        RowBox[{"{", 
         RowBox[{"\"\<s\>\"", ",", "\[Omega]", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\[Theta]in", ",", 
              RowBox[{"n", "[", "1", "]"}]}], "}"}], ",", 
            RowBox[{"Sequence", "@@", 
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{
                SubscriptBox["\[CapitalTheta]s", 
                 RowBox[{"[", 
                  RowBox[{"[", 
                   RowBox[{"2", ";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]], ",", 
                SubscriptBox["Ns", 
                 RowBox[{"[", 
                  RowBox[{"[", 
                   RowBox[{"2", ";;", 
                    RowBox[{"-", "2"}]}], "]"}], "]"}]], ",", "Ds"}], "}"}], 
              "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Last", "@", "\[CapitalTheta]s"}], ",", 
              RowBox[{"Last", "@", "Ns"}]}], "}"}]}], "}"}]}], "}"}]}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"SIv\[CapitalPhi]vSIIv", "=", 
       RowBox[{
        RowBox[{"AbelesSIv", "[", 
         RowBox[{"args", ",", "v"}], "]"}], ".", 
        RowBox[{"PhaseMv", "[", 
         RowBox[{"\[Omega]", ",", 
          SubscriptBox["\[CapitalTheta]s", 
           RowBox[{"[", 
            RowBox[{"[", 
             RowBox[{"v", "+", "1"}], "]"}], "]"}]], ",", 
          SubscriptBox["Ns", 
           RowBox[{"[", 
            RowBox[{"[", 
             RowBox[{"v", "+", "1"}], "]"}], "]"}]], ",", 
          SubscriptBox["Ds", 
           RowBox[{"[", 
            RowBox[{"[", "v", "]"}], "]"}]]}], "]"}], ".", 
        RowBox[{"AbelesSIIv", "[", 
         RowBox[{"args", ",", "v"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"S", "=", 
       RowBox[{"AbelesS", "[", "args", "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"FullSimplify", "[", 
       RowBox[{"SIv\[CapitalPhi]vSIIv", "/", "S"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"v", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5981983775887256`*^9, 3.5981986046697245`*^9}, {
  3.5981986507688055`*^9, 3.5981988585023713`*^9}, {3.59822458155859*^9, 
  3.5982247330242558`*^9}, {3.598224800448574*^9, 3.598224802460978*^9}, {
  3.598224869868696*^9, 3.5982249888687057`*^9}, {3.5982250565738244`*^9, 
  3.59822511655793*^9}, {3.598225656532679*^9, 3.5982256944407454`*^9}, {
  3.598225775328888*^9, 3.5982259361117706`*^9}, {3.5982260667192*^9, 
  3.5982260797492237`*^9}},
 CellLabel->"In[21]:=",
 CellID->81087429],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5982256683106995`*^9, 3.598225695813548*^9}, {
  3.598225917032937*^9, 3.5982259273133554`*^9}, {3.598226076769618*^9, 
  3.598226080685225*^9}},
 CellLabel->"Out[21]=",
 CellID->95136412]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5982248077493873`*^9, 3.59822480923139*^9}},
 CellID->322276862],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "PhaseMv"}]], "Input",
 CellChangeTimes->{{3.5981983334864483`*^9, 3.5981983371212544`*^9}, {
  3.598198372097516*^9, 3.59819837446872*^9}, {3.598198874492399*^9, 
  3.5981988763488026`*^9}},
 CellLabel->"In[5]:=",
 CellID->88409853],

Cell[BoxData[
 StyleBox["\<\"\\\"PhaseM[\[Omega],\\!\\(\\*SubscriptBox[\\(\[Theta]\\), \\(v\
\\)]\\),\\!\\(\\*SubscriptBox[\\(n\\), \\(v\\)]\\),\\!\\(\\*SubscriptBox[\\(d\
\\), \\(v\\)]\\)] gives the phase matrix of layer v. Eq. 12\\\"\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.598198877050804*^9},
 CellTags->"Info3598177276-1992966",
 CellID->459894455]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{433, Automatic}, {66, Automatic}},
ShowSelection->True,
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3598177276-1992966"->{
  Cell[17667, 604, 375, 7, 40, "Print",
   CellTags->"Info3598177276-1992966",
   CellID->459894455]},
 "ExtendedExamples"->{
  Cell[18091, 617, 100, 2, 53, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3598177276-1992966", 20047, 688},
 {"ExtendedExamples", 20173, 692}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 148, 3, 31, "Categorization",
 CellID->183255689],
Cell[1210, 50, 93, 2, 31, "Categorization",
 CellID->657474109],
Cell[1306, 54, 144, 3, 31, "Categorization",
 CellID->39402141]
}, Open  ]],
Cell[CellGroupData[{
Cell[1487, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1545, 65, 161, 3, 17, "Keywords",
 CellID->1164421360],
Cell[1709, 70, 112, 2, 17, "Keywords",
 CellID->403793482],
Cell[1824, 74, 111, 2, 17, "Keywords",
 CellID->694450138],
Cell[1938, 78, 148, 3, 17, "Keywords",
 CellID->379089414],
Cell[2089, 83, 175, 3, 17, "Keywords",
 CellID->82614899],
Cell[2267, 88, 167, 3, 17, "Keywords",
 CellID->221009319]
}, Open  ]],
Cell[CellGroupData[{
Cell[2471, 96, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[2539, 99, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[2636, 103, 82, 2, 70, "Template",
 CellID->158391909],
Cell[2721, 107, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[2805, 111, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2924, 118, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2980, 121, 63, 2, 70, "Details",
 CellID->670882175],
Cell[3046, 125, 69, 2, 70, "Details",
 CellID->350963985],
Cell[3118, 129, 64, 2, 70, "Details",
 CellID->8391405],
Cell[3185, 133, 69, 2, 70, "Details",
 CellID->3610269],
Cell[3257, 137, 61, 2, 70, "Details",
 CellID->401364205],
Cell[3321, 141, 61, 2, 70, "Details",
 CellID->350204745],
Cell[3385, 145, 63, 2, 70, "Details",
 CellID->732958810],
Cell[3451, 149, 78, 2, 70, "Details",
 CellID->222905350],
Cell[3532, 153, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3636, 160, 53, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[3692, 163, 2777, 89, 105, "Usage"],
Cell[6472, 254, 744, 21, 53, "Notes",
 CellID->1067943069],
Cell[7219, 277, 334, 8, 23, "Notes",
 CellID->5528961],
Cell[7556, 287, 198, 3, 23, "Notes",
 CellID->69309137],
Cell[7757, 292, 357, 10, 25, "Notes",
 CellID->189641294],
Cell[8117, 304, 863, 26, 41, "Notes",
 CellID->568721677]
}, Open  ]],
Cell[CellGroupData[{
Cell[9017, 335, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[9077, 338, 338, 7, 16, "Tutorials",
 CellID->40297743]
}, Open  ]],
Cell[CellGroupData[{
Cell[9452, 350, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[9538, 353, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[9633, 359, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[9701, 362, 444, 8, 29, "RelatedLinks",
 CellID->148884605]
}, Open  ]],
Cell[CellGroupData[{
Cell[10182, 375, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[10240, 378, 1592, 51, 35, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[11869, 434, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[11929, 437, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[12012, 443, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[12371, 456, 523, 14, 22, "ExampleText",
 CellID->86593958],
Cell[12897, 472, 182, 4, 27, "Input",
 CellID->248772615],
Cell[CellGroupData[{
Cell[13104, 480, 3549, 86, 308, "Input",
 CellID->81087429],
Cell[16656, 568, 594, 19, 25, "Output",
 CellID->95136412]
}, Open  ]],
Cell[17265, 590, 113, 2, 27, "Input",
 CellID->322276862],
Cell[CellGroupData[{
Cell[17403, 596, 261, 6, 27, "Input",
 CellID->88409853],
Cell[17667, 604, 375, 7, 40, "Print",
 CellTags->"Info3598177276-1992966",
 CellID->459894455]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18091, 617, 100, 2, 53, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[18194, 621, 125, 3, 30, "ExampleSection",
 CellID->1293636265],
Cell[18322, 626, 148, 3, 18, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[18495, 633, 127, 3, 18, "ExampleSection",
 CellID->2061341341],
Cell[18625, 638, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[18758, 643, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[18903, 649, 131, 3, 18, "ExampleSection",
 CellID->258228157],
Cell[19037, 654, 142, 3, 18, "ExampleSection",
 CellID->2123667759],
Cell[19182, 659, 135, 3, 18, "ExampleSection",
 CellID->1305812373],
Cell[19320, 664, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[19463, 669, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
